home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / util / rexx / WW-Rech_kor.lha / Kunde_weg_WW.rexx < prev    next >
OS/2 REXX Batch file  |  1999-02-22  |  1KB  |  45 lines
  1. /* Kundendaten entfernen
  2. */
  3. /*
  4. ** Copyright © by Friedrich Siekmeier
  5. ** Version 1.01 vom 22.02.1999
  6. ** Erweiterung zum WordWorth-Assistenten
  7. ** WW-Rechnung und ...-PS
  8. */
  9.  
  10. OPTIONS RESULTS
  11. ADDRESS AREXX
  12.  
  13. IF ~SHOW(L,'rexxreqtools.library') THEN DO
  14.     ADDLIB('rexxreqtools.library',0,-30,0)
  15. END
  16.  
  17. NKD=rtgetstring(,'Bitte Datei-(Kunden-)namen eingeben...ohne Umlaute äöü')
  18. IF NKD < 1 THEN EXIT
  19.  
  20. OPEN(Auswahl,'Kunden:Auswahl',R)
  21. OPEN(KDAuswahl,'RAM:KDAuswahl',W)
  22. DO UNTIL EOF(Auswahl)
  23.     Lesen=READLN(Auswahl)
  24.         IF INDEX(Lesen,NKD) ~= 0 THEN ITERATE
  25.     WRITELN(KDAuswahl,Lesen)
  26. END
  27.  
  28. CLOSE(Auswahl)
  29. CLOSE(KDAuswahl)
  30.  
  31. THEN ADDRESS COMMAND 'C:Delete >NIL: Kunden:Auswahl.bak'
  32.  
  33. ADDRESS COMMAND 'C:Wait 3 secs'
  34.  
  35. ADDRESS COMMAND 'C:Rename Kunden:Auswahl Kunden:Auswahl.bak'
  36. ADDRESS COMMAND 'C:Copy RAM:KDAuswahl Kunden:Auswahl CLONE'
  37. ADDRESS COMMAND 'C:Delete >NIL: Kunden:'NKD
  38. ADDRESS COMMAND 'C:Wait 3 secs'
  39.  
  40. ADDRESS COMMAND 'C:Delete >NIL: RAM:KDAuswahl'
  41.  
  42. rtezrequest('Sie haben nun die Kundendaten entfernt!')
  43.  
  44. EXIT
  45.